perm filename CH.DIF[MF,ALS]1 blob
sn#786590 filedate 1985-02-14 generic text, type T, neo UTF8
1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF] 2-14-85 10:04 pages 1,1
**** File 1) DV.CH[MF,ALS]/1P/1L
1) COMMENT ⊗ VALID 00007 PAGES
1) C REC PAGE DESCRIPTION
**** File 2) DVIIMP.CH[1,DRF]/1P/1L
2) COMMENT ⊗ VALID 00008 PAGES
2) C REC PAGE DESCRIPTION
***************
**** File 1) DV.CH[MF,ALS]/1P/10L
1) C00016 ENDMK
1) C⊗;
**** File 2) DVIIMP.CH[1,DRF]/1P/10L
2) C00015 00008 @x user and file id
2) C00018 ENDMK
2) C⊗;
***************
**** File 1) DV.CH[MF,ALS]/4P/13L
1) begin reset(dvi_file,'','/B:8');
1) cur_loc←0;
**** File 2) DVIIMP.CH[1,DRF]/4P/13L
2) begin reset(dvi_file,'','/B:8/N:9');
2) cur_loc←0;
***************
**** File 1) DV.CH[MF,ALS]/4P/21L
1) @z
**** File 2) DVIIMP.CH[1,DRF]/4P/21L
2) @#
2) procedure cur_nam(var chan:f@&i@&l@&e;var s:string); extern; @t\2@>@/
2) @z
***************
**** File 1) DV.CH[MF,ALS]/4P/29L
1) begin rewrite(im_file,'','/B:8'); im_byte_no←0;
1) end;
**** File 2) DVIIMP.CH[1,DRF]/4P/31L
2) begin rewrite(im_file,'','/B:8/N:9'); im_byte_no←0;
2) end;
***************
**** File 1) DV.CH[MF,ALS]/7P/52L
1) m←round((0.3*mag*q)/d);
1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF] 2-14-85 10:04 pages 7,7
1) cur_name[r+2]← xchr[(m div 100)+@'60];
1) cur_name[r+3]← xchr[(m mod 100) div 10+@'60];
**** File 2) DVIIMP.CH[1,DRF]/7P/52L
2) m←3*mag div 10;
2) cur_name[r+2]← xchr[m div 100+@'60];
2) cur_name[r+3]← xchr[(m mod 100) div 10+@'60];
***************
**** File 1) DV.CH[MF,ALS]/7P/70L
**** File 2) DVIIMP.CH[1,DRF]/8P/1L
2) @x user and file id
2) open_im_file;
2) @y
2) open_im_file;
2) im_byte("@@");
2) im_byte("d");
2) im_byte("o");
2) im_byte("c");
2) im_byte("u");
2) im_byte("m");
2) im_byte("e");
2) im_byte("n");
2) im_byte("t");
2) im_byte("(");
2) im_byte("l");
2) im_byte("a");
2) im_byte("n");
2) im_byte("g");
2) im_byte("u");
2) im_byte("a");
2) im_byte("g");
2) im_byte("e");
2) im_byte(" ");
2) im_byte("i");
2) im_byte("m");
2) im_byte("P");
2) im_byte("r");
2) im_byte("e");
2) im_byte("s");
2) im_byte("s");
2) im_byte(",");
2) im_byte(" ");
2) im_byte("O");
2) im_byte("w");
2) im_byte("n");
2) im_byte("e");
2) im_byte("r");
1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF] 2-14-85 10:04 pages 7,8
2) im_byte(" ");
2) im_byte("""");
2) calli(@'24,0,0,ppn.int,success);
2) for dvi_n_len←1 to 6 do im_byte(ppn.sixbit[dvi_n_len]+@'40);
2) im_byte("""");
2) im_byte(",");
2) im_byte("N");
2) im_byte("a");
2) im_byte("m");
2) im_byte("e");
2) im_byte(" ");
2) im_byte("""");
2) cur_nam(dvi_file,dvi_name);
2) dvi_n_len←1;
2) while ord(dvi_name[dvi_n_len])≠0 do
2) begin im_byte(xord[dvi_name[dvi_n_len]]); incr(dvi_n_len);
2) end;
2) im_byte("""");
2) im_byte(",");
2) im_byte("D");
2) im_byte("V");
2) im_byte("I");
2) im_byte("-");
2) im_byte("i");
2) im_byte("d");
2) im_byte(" ");
2) im_byte("""");
2) for p←0 to id_len do im_byte(id[p]);
2) im_byte("""");
2) im_byte(")");
2) @z
2) @x
2) @<Glob...@>=
2) @y
2) @<Glob...@>=
2) @!dvi_name:packed array[1..24] of char;
2) @!dvi_n_len:1..24; {file names at {\sc SAIL} have at most 23 characters}
2) @!ppn:record case integer of
2) 1: (@!int: integer);
2) 2: (@!sixbit: packed array[1..6] of 0..@'77)
2) end;
2) @!success:boolean;
2) @z
***************